object DirectoryDialog: TDirectoryDialog Left = 254 Top = 143 Width = 355 Height = 289 Caption = 'Select Directory' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 8 Width = 56 Height = 13 Caption = 'Directory:' end object DirectoryLabel: TLabel Left = 16 Top = 24 Width = 321 Height = 13 AutoSize = False end object Label2: TLabel Left = 16 Top = 200 Width = 41 Height = 13 Caption = 'Dri&ves:' end object DirectoryListBox1: TDirectoryListBox Left = 16 Top = 48 Width = 217 Height = 145 ItemHeight = 16 TabOrder = 0 OnChange = DirectoryListBox1Change end object Button1: TButton Left = 248 Top = 48 Width = 89 Height = 25 Caption = 'OK' ModalResult = 1 TabOrder = 1 end object Button2: TButton Left = 248 Top = 80 Width = 89 Height = 25 Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object DriveComboBox1: TDriveComboBox Left = 16 Top = 216 Width = 217 Height = 19 TabOrder = 3 OnChange = DriveComboBox1Change end end